#!/usr/bin/env perl

BEGIN {
	push @INC,"../libs";
}

use gri2_rsatcp;
use Data::Dumper;

($a,$b)=gri2_rsatcp::load_public_key({file=>"/tmp/keys/test.public"});

if($a==0) {
	print STDERR "$_\n" foreach(@$b);exit;
}

print Dumper($b);

($a2,$b2)=gri2_rsatcp::load_private_key({file=>"/tmp/keys/test.private"});

if($a2==0) {
	print STDERR "$_\n" foreach(@$b2);exit;
}

print Dumper($b2);
